home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs19.d81 / mob.sda / CRSR UTIL. (.txt) next >
Commodore BASIC  |  2009-10-10  |  2KB  |  69 lines
  1. 1 DIM A$(67):POKE53280,14:POKE53281,6:POKE646,14:GOSUB3500:GOSUB3000
  2. 5 DV=PEEK(186):SC=0:GOSUB3050
  3. 10 GOSUB2020
  4. 20 ON AN GOTO40,400,450,500
  5. 30 GOTO10
  6. 40 A=0:INPUT"[147]NAME OF SPRITE FILE ";F$
  7. 50 IFLEFT$(F$,2)<>"S/"THENF$="S/"+LEFT$(F$,14)
  8. 60 INPUT"WHAT IS SPRITE COLOR #";SC:IFSC>15THEN60
  9. 70 INPUT"IS SPRITE IN MULTICOLOR Y/N";AN$:IFAN$="Y"THENSC=SC OR 64:GOTO90
  10. 80 IFAN$<>"N"THEN70
  11. 90 SC=SC OR 128:GOSUB3400
  12. 100 OPEN15,DV,15
  13. 110 OPEN2,DV,2,"0:"+F$+",P,R"
  14. 120 GOSUB1000
  15. 130 GET#2,A$(A):A=A+1:IFA>66THEN600
  16. 140 IFST=0THEN130
  17. 150 IFST=64THEN240
  18. 160 PRINT"ST="ST:GOSUB1000:CLOSE2:CLOSE15:GOTO5
  19. 240 CLOSE2:CLOSE15:A=0
  20. 250 A$(0)=CHR$(192):A$(1)=CHR$(3)
  21. 260 A$(65)=CHR$(SC)
  22. 270 OPEN15,DV,15:OPEN2,DV,2,"@0:"+F$+",P,W":GOSUB1000
  23. 300 FORA=0TO65:IFA$(A)=""THENA$(A)=CHR$(0)
  24. 305 PRINT#2,A$(A);:NEXTA
  25. 310 GOSUB1000:CLOSE2:CLOSE15:GOTO5
  26. 400 SYS65126:END
  27. 450 F$="MENU1":GOTO510
  28. 500 F$="FWINT"
  29. 510 DV=PEEK(186):PRINT"[147]L[207]"CHR$(34)F$CHR$(34)","DV
  30. 520 PRINT"RUN"
  31. 530 POKE631,13:POKE632,13:POKE198,2:END
  32. 600 PRINT"FILE MUST NOT BE MORE THAN 1 BLOCK IN LENGTH":GOSUB2000:GOTO5
  33. 1000 INPUT#15,E$,B$,C$,D$:IFVAL(A$)>0THEN2000
  34. 1010 RETURN
  35. 2000 PRINTE$,B$,C$,D$
  36. 2010 CLOSE2:CLOSE15:PRINT"ACTION ABORTED PRESS ANY KEY"
  37. 2020 GETAN$:IFAN$=""THEN2020
  38. 2030 AN=VAL(AN$):RETURN
  39. 3000 PRINT"[147] THIS PRG. IS DESIGNED TO TAKE THE FILESCREATED WITH THE SPRITE ";
  40. 3010 PRINT"EDITOR AND      CHANGE FORMAT (LOAD ADDRESS ETC.) ";
  41. 3020 PRINT"SO AS TO MAKE THEM USEABLE AS A CRSR."
  42. 3030 PRINT"PRESS ANY KEY TO PROCEED."
  43. 3040 GOSUB2020:RETURN
  44. 3050 PRINT"[147]"
  45. 3060 PRINTSPC(13)"1.CRSR MOD."
  46. 3070 PRINTSPC(13)"2.BASIC"
  47. 3080 PRINTSPC(13)"3.MENU1"
  48. 3090 PRINTSPC(13)"4.SPRITE EDITOR"
  49. 3100 RETURN
  50. 3400 PRINT"[147] PICK HOT POINT (1/2/3/4)"
  51. 3410 PRINTSPC(13)"1  23[157][157][157][157]4"
  52. 3415 V=53248
  53. 3420 POKEV+0,130:POKEV+1,114:POKEV+16,0
  54. 3430 POKEV+37,11:POKEV+38,1:POKEV+39,12
  55. 3440 POKEV+28,1:POKEV+29,1:POKEV+23,1
  56. 3450 POKE2040,13:POKEV+21,1
  57. 3460 GOSUB2020:ONAN GOTO3475,3480,3485,3490
  58. 3470 GOTO3460
  59. 3475 SC=SC AND 207:GOTO3495
  60. 3480 SC=SC AND 207 OR 16:GOTO3495
  61. 3485 SC=SC AND 207 OR 32:GOTO3495
  62. 3490 SC=SC OR 48
  63. 3495 POKEV+21,0:POKEV+23,0:POKEV+29,0:RETURN
  64. 3500 RESTORE:FORI=832TO895:READJ:POKEI,J:NEXTI:RETURN
  65. 3505 DATA218,157,170,64,0,2,128,0,2,128,0,2,128,0,2,128
  66. 3510 DATA0,2,128,0,2,128,0,2,128,0,2,128,12,2,128,0
  67. 3520 DATA2,128,0,2,128,0,2,128,0,2,128,0,2,128,0,2
  68. 3530 DATA128,0,2,128,0,2,128,0,2,64,0,2,218,170,170,64
  69.